home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MyComp Icons 1.xpl < prev    next >
Text File  |  2002-10-29  |  2KB  |  72 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH 1"="Appearance\Desktop\Icons\'My Computer' Options"
  5. "UIPATH 2"="Appearance\Desktop\Icons\Visible Icons"
  6. "UIPATH 3"="System\Scheduled Tasks\Visibility"
  7. "NAME"="Visible Icons in My Computer"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Show Dial-Up Networking"
  10. "TEXT 2"="Show Scheduled Tasks"
  11. "TEXT 3"="Show Web Folders"
  12. "DESCRIPTION 1"="This plug-in lets you control what icons are shown in My Computer besides your drives. You can't get rid of the Control Panel or Printers folders, and to see changes, you may need to press F5 in Explorer or My Computer."
  13. "DESCRIPTION 2"="To show an item in My Computer, enable it. To hide it, disable it."
  14. "DESCRIPTION 3"="These settings affects all users of this computer."
  15. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] and Skyler Boerens [NemesisEra@hotmail.com] for this tip."
  16. "VERSION"="1.13"
  17. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  18. "CONTACTURL"="http://www.xteq.com/"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  20.  
  21. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\MyComputer\NameSpace\"
  22. sDUN="{992CFFA0-F557-101A-88EC-00DD010CCC48}"
  23. sSCH="{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  24. sWEB="{BDEADF00-C265-11d0-BCED-00A0C90AB50F}"
  25.  
  26. SUB Plugin_Initialize
  27.  if RegPathExists(sPath & sDUN) then
  28.   Call SetUIElement(1,true)
  29.  end if
  30.  
  31.  if RegPathExists(sPath & sSCH) then
  32.   Call SetUIElement(2,true)
  33.  end if
  34.  
  35.  if RegPathExists(sPath & sWEB) then
  36.   Call SetUIElement(3,true)
  37.  end if
  38. END SUB
  39.  
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.   Call RegWriteValue(sPath & sDUN & "\@","",1)
  44.  else
  45.   if RegPathExists(sPath & sDUN) then
  46.      Call RegDeletePath(sPath & sDUN)
  47.   end if
  48.  end if
  49.  
  50.  b=GetUIElement(2)
  51.  if b=true then
  52.   Call RegWriteValue(sPath & sSCH & "\@","",1)
  53.  else
  54.   if RegPathExists(sPath & sSCH) then
  55.    Call RegDeletePath(sPath & sSCH)
  56.   end if
  57.  end if
  58.  
  59.  b=GetUIElement(3)
  60.  if b=true then
  61.   Call RegWriteValue(sPath & sWEB & "\@","",1)
  62.  else
  63.   if RegPathExists(sPath & sWEB) then
  64.    Call RegDeletePath(sPath & sWEB)
  65.   end if
  66.  end if
  67.  
  68.  Call IndicateSettingChange()
  69. END SUB
  70.  
  71. SUB Plugin_Terminate
  72. END SUB